divide_spectrum Subroutine

public subroutine divide_spectrum(spectr, pos_spectr, neg_spectr)

деление спектра на две части

Arguments

Type	Intent	Optional	Attributes		Name
type(Spectrum),	intent(in)			::	spectr
type(Spectrum),	intent(out)			::	pos_spectr
type(Spectrum),	intent(out)			::	neg_spectr